﻿Public Class Cliente
    Private _nombre As String
    Private _apellido As String
    Private _direccion As String
    Private telefonos As List(Of String)

    Public Sub New(nombre As String, apellido As String, direccion As String)
        _nombre = nombre
        _apellido = apellido
        _direccion = direccion
        telefonos = New List(Of String)()
    End Sub

    Public Property nombre As String
        Get
            Return _nombre

        End Get
        Set(value As String)
            _nombre = value

        End Set
    End Property

    Public Property apellido As String
        Get
            Return _apellido


        End Get
        Set(value As String)
            _apellido = value

        End Set
    End Property
    Public Property direccion As String
        Get
            Return _direccion


        End Get
        Set(value As String)
            _direccion = value

        End Set
    End Property
    Public Sub agregartelefono(tel As String)
        telefonos.Add(tel)


    End Sub
    Public Function obtenertelefono(indice As Integer) As String
        Return telefonos(indice)


    End Function
    Public Function cantidadtelefonos() As Integer
        Return telefonos.Count

    End Function


End Class
